home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / DBCALC.DFM < prev    next >
Text File  |  1994-10-12  |  8KB  |  280 lines
  1.  
  2.  
  3.     DEFINE FORM dbCalc;
  4.         PROPERTY ;
  5.             HEIGHT       14,;
  6.             HELPFILE    "DBASE1.HLP",;
  7.             HELPID      "20506",;
  8.             MDI         .F.,;
  9.             TEXT        "Calculadora",;
  10.             WIDTH        30,;
  11.             TOP           9,;
  12.             LEFT         40;
  13.             CUSTOM ;
  14.                 lastValue  0,;
  15.                 lastOp    "",;
  16.                 lastKeyOp .F.,;
  17.                 lDec      .F.
  18.  
  19.     DEFINE MENUBAR mBar OF m->dbCalc
  20.     
  21.     DEFINE MENU mFile OF dbCalc.mBar;
  22.         PROPERTY ;
  23.             STATUSMESSAGE [Operaciones con ficheros],;
  24.             TEXT [~F~ichero]
  25.             
  26.     DEFINE MENUITEM mExit OF dbCalc.mBar.mFile;
  27.         PROPERTY ;
  28.             HELPFILE      "DBASE1.HLP",;
  29.             HELPID        "20507",;
  30.             ONCLICK        CalClose,;
  31.             ONHELP         IDEHelp,;
  32.             SHORTCUT      "ALT-F4",;
  33.             STATUSMESSAGE [Salir de la calculadora],;
  34.             TEXT          [~S~alir]
  35.             
  36.     DEFINE MENU mEdit OF dbCalc.mBar;
  37.         PROPERTY ;
  38.             STATUSMESSAGE [Operaciones de edición],;
  39.             TEXT [~E~dición]
  40.             
  41.     DEFINE MENUITEM mCopy OF dbCalc.mBar.mEdit;
  42.         PROPERTY ;
  43.             HELPFILE      "DBASE1.HLP",;
  44.             HELPID        "20508",;
  45.             ONCLICK        bCopy,;
  46.             ONHELP         IDEHelp,;
  47.             SHORTCUT      "CTRL-INS",;
  48.             STATUSMESSAGE [Copiar el valor actual al Portapapeles],;
  49.             TEXT          [~C~opiar]
  50.             
  51.     DEFINE MENUITEM mClear OF dbCalc.mBar.mEdit;
  52.         PROPERTY ;
  53.             HELPFILE      "DBASE1.HLP",;
  54.             HELPID        "20509",;
  55.             ONCLICK        bClear,;
  56.             ONHELP         IDEHelp,;
  57.             STATUSMESSAGE [Borrar los valores e inicializar la calculadora],;
  58.             TEXT          [~B~orrar]
  59.             
  60.     DEFINE MENU mHelp OF dbCalc.mBar;
  61.         PROPERTY ;
  62.             STATUSMESSAGE [Ayuda sobre la calculadora],;
  63.             TEXT [~A~yuda]
  64.             
  65.     DEFINE MENUITEM mUsing OF dbCalc.mBar.mHelp;
  66.         PROPERTY ;
  67.             HELPFILE      "DBASE1.HLP",;
  68.             HELPID        "20506",;
  69.             ONCLICK        IDEHelp,;
  70.             ONHELP         IDEHelp,;
  71.             STATUSMESSAGE [Ayuda sobre la utilización de la calculadora],;
  72.             TEXT          [~U~tilización]
  73.             
  74.     DEFINE MENUITEM mSep OF dbCalc.mBar.mHelp;
  75.         PROPERTY ;
  76.             ENABLED   .F.,;
  77.             SEPARATOR .T.
  78.  
  79.     DEFINE MENUITEM mAbout OF dbCalc.mBar.mHelp;
  80.         PROPERTY ;
  81.             HELPID        "20506",;
  82.             HELPFILE      "DBASE1.HLP",;
  83.             ONCLICK        ClcAbout,;
  84.             STATUSMESSAGE [Acerca de la  calculadora],;
  85.             TEXT          [~A~cerca de]
  86.  
  87.     DEFINE TEXT e OF m->dbCalc;
  88.         PROPERTY ;
  89.             COLORHIGHLIGHT "W+/B",;
  90.             COLORNORMAL    "W+/B",;
  91.             LABEL          .F.,;
  92.             LEFT             6,;
  93.             TEXT            [               0],;
  94.             TOP              1,;
  95.             WIDTH           16
  96.  
  97.     DEFINE PUSHBUTTON b0 OF m->dbCalc;
  98.         PROPERTY ;
  99.             GRABFOCUS .F.,;
  100.             TABSTOP   .F.,;
  101.             TEXT      "~0~",;
  102.             TOP         9,;
  103.             LEFT        0,;
  104.             ONCLICK    numClick,;
  105.             WIDTH      10
  106.  
  107.     DEFINE PUSHBUTTON b1 OF m->dbCalc;
  108.         PROPERTY ;
  109.             GRABFOCUS .F.,;
  110.             TABSTOP   .F.,;
  111.             TEXT    "~1~",;
  112.             TOP      7,;
  113.             LEFT     0,;
  114.             ONCLICK  numClick,;
  115.             WIDTH    5
  116.  
  117.     DEFINE PUSHBUTTON b2 OF m->dbCalc;
  118.         PROPERTY ;
  119.             GRABFOCUS .F.,;
  120.             TABSTOP   .F.,;
  121.             TEXT    "~2~",;
  122.             TOP      7,;
  123.             LEFT     5,;
  124.             ONCLICK  numClick,;
  125.             WIDTH    5
  126.  
  127.     DEFINE PUSHBUTTON b3 OF m->dbCalc;
  128.         PROPERTY ;
  129.             GRABFOCUS .F.,;
  130.             TABSTOP   .F.,;
  131.             TEXT    "~3~",;
  132.             TOP      7,;
  133.             LEFT     10,;
  134.             ONCLICK  numClick,;
  135.             WIDTH     5
  136.             
  137.     DEFINE PUSHBUTTON b4 OF m->dbCalc;
  138.         PROPERTY ;
  139.             GRABFOCUS .F.,;
  140.             TABSTOP   .F.,;
  141.             TEXT    "~4~",;
  142.             TOP      5,;
  143.             LEFT     dbCalc.b1.LEFT,;
  144.             ONCLICK  numClick,;
  145.             WIDTH    5
  146.  
  147.     DEFINE PUSHBUTTON b5 OF m->dbCalc;
  148.         PROPERTY ;
  149.             GRABFOCUS .F.,;
  150.             TABSTOP   .F.,;
  151.             TEXT    "~5~",;
  152.             TOP      5,;
  153.             LEFT     dbCalc.b2.LEFT,;
  154.             ONCLICK  numClick,;
  155.             WIDTH    5
  156.  
  157.     DEFINE PUSHBUTTON b6 OF m->dbCalc;
  158.         PROPERTY ;
  159.             GRABFOCUS .F.,;
  160.             TABSTOP   .F.,;
  161.             TEXT    "~6~",;
  162.             TOP      5,;
  163.             LEFT     dbCalc.b3.LEFT,;
  164.             ONCLICK  numClick,;
  165.             WIDTH    5
  166.  
  167.     DEFINE PUSHBUTTON b7 OF m->dbCalc;
  168.         PROPERTY ;
  169.             GRABFOCUS .F.,;
  170.             TABSTOP   .F.,;
  171.             TEXT    "~7~",;
  172.             TOP      3,;
  173.             LEFT     dbCalc.b4.LEFT,;
  174.             ONCLICK  numClick,;
  175.             WIDTH    5
  176.  
  177.     DEFINE PUSHBUTTON b8 OF m->dbCalc;
  178.         PROPERTY ;
  179.             GRABFOCUS .F.,;
  180.             TABSTOP   .F.,;
  181.             TEXT    "~8~",;
  182.             TOP      3,;
  183.             LEFT     dbCalc.b5.LEFT,;
  184.             ONCLICK  numClick,;
  185.             WIDTH    5
  186.  
  187.     DEFINE PUSHBUTTON b9 OF m->dbCalc;
  188.         PROPERTY ;
  189.             GRABFOCUS .F.,;
  190.             TABSTOP   .F.,;
  191.             TEXT    "~9~",;
  192.             TOP      3,;
  193.             LEFT     dbCalc.b6.LEFT,;
  194.             ONCLICK  numClick,;
  195.             WIDTH    5
  196.  
  197.     DEFINE PUSHBUTTON bDec OF m->dbCalc;
  198.             PROPERTY ;
  199.             GRABFOCUS .F.,;
  200.             TABSTOP   .F.,;
  201.             TEXT       " ",;
  202.             TOP        9,;
  203.             LEFT       dbCalc.b9.LEFT,;
  204.             ONCLICK    numClick,;
  205.             WIDTH      5
  206.     
  207.     DEFINE PUSHBUTTON buminus OF m->dbCalc;
  208.         PROPERTY ;
  209.             GRABFOCUS .F.,;
  210.             TABSTOP   .F.,;
  211.             TEXT      "~S~GN",;
  212.             TOP         3,;
  213.             LEFT       15,;
  214.             ONCLICK    buminus,;
  215.             WIDTH       7
  216.  
  217.     DEFINE PUSHBUTTON bdivide OF m->dbCalc;
  218.         PROPERTY ;
  219.             GRABFOCUS .F.,;
  220.             TABSTOP   .F.,;
  221.             TEXT      "~/~",;
  222.             TOP         3,;
  223.             LEFT       22,;
  224.             ONCLICK    pressOp,;
  225.             WIDTH       5
  226.             
  227.     DEFINE PUSHBUTTON btimes OF m->dbCalc;
  228.         PROPERTY ;
  229.             GRABFOCUS .F.,;
  230.             TABSTOP   .F.,;
  231.             TEXT      "~*~",;
  232.             TOP         5,;
  233.             LEFT       22,;
  234.             ONCLICK    pressOp,;
  235.             WIDTH       5
  236.  
  237.     DEFINE PUSHBUTTON bminus OF m->dbCalc;
  238.         PROPERTY ;
  239.             GRABFOCUS .F.,;
  240.             TABSTOP   .F.,;
  241.             TEXT      "~-~",;
  242.             TOP        7,;
  243.             LEFT      22,;
  244.             ONCLICK   pressOp,;
  245.             WIDTH      5
  246.  
  247.     DEFINE PUSHBUTTON bplus OF m->dbCalc;
  248.         PROPERTY ;
  249.             GRABFOCUS .F.,;
  250.             TABSTOP   .F.,;
  251.             TEXT      "~+~",;
  252.             TOP         9,;
  253.             LEFT       22,;
  254.             ONCLICK    pressOp,;
  255.             WIDTH       5
  256.  
  257.     DEFINE PUSHBUTTON bequal OF m->dbCalc;
  258.         PROPERTY ;
  259.             DEFAULT   .T.,;
  260.             TABSTOP   .F.,;
  261.             GRABFOCUS .F.,;
  262.             HEIGHT      4,;
  263.             TEXT      "~=~",;
  264.             TOP         7,;
  265.             LEFT       15,;
  266.             ONCLICK    pressOp,;
  267.             WIDTH       7
  268.  
  269.     DEFINE PUSHBUTTON bclear OF m->dbCalc;
  270.         PROPERTY ;
  271.             GRABFOCUS .F.,;
  272.             TABSTOP   .F.,;
  273.             TEXT      "~C~LR",;
  274.             TOP         5,;
  275.             LEFT       15,;
  276.             ONCLICK    bclear,;
  277.             WIDTH       7
  278.  
  279.  
  280.